home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / dbplus2 / demomain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  10.6 KB  |  317 lines
  1. unit Demomain;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, Mask, DB, DBTables, TabNotBk, Dblup2,
  8.   StdCtrls, DBCtrls, SubCat, DBLookup;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     TabbedNotebook1: TTabbedNotebook;
  13.     TableRest: TTable;
  14.     DataSourceRest: TDataSource;
  15.     TableRestName: TStringField;
  16.     TableRestSubCat: TSmallintField;
  17.     TableRestLocation: TStringField;
  18.     TableRestPhone: TStringField;
  19.  
  20.     TableLocation: TTable;
  21.     DataSourceLocation: TDataSource;
  22.     TableLocationLocation: TStringField;
  23.  
  24.     TableSubCat: TTable;
  25.     DataSourceSubCat: TDataSource;
  26.     TableSubCatSubCatNum: TSmallintField;
  27.     TableSubCatSubCatName: TStringField;
  28.  
  29.     DBEditName: TDBEdit;
  30.     ComboPlusSubCat: TDBLookupComboPlus;
  31.     DBEditPhone: TDBEdit;
  32.     ComboPlusLocation: TDBLookupComboPlus;
  33.     Navigator1: TDBNavigator;
  34.     Name: TLabel;
  35.     Style: TLabel;
  36.     Phone: TLabel;
  37.     Location: TLabel;
  38.  
  39.     DBEditName2: TDBEdit;
  40.     ComboPlusSubCat2: TDBLookupComboPlus;
  41.     DBEditPhone2: TDBEdit;
  42.     ComboPlusLocation2: TDBLookupComboPlus;
  43.     DBNavigator1: TDBNavigator;
  44.     Name2: TLabel;
  45.     Style2: TLabel;
  46.     Phone2: TLabel;
  47.     Location2: TLabel;
  48.  
  49.     DBEditName3: TDBEdit;
  50.     ComboPlusSubCat3: TDBLookupComboPlus;
  51.     DBEditPhone3: TDBEdit;
  52.     ComboPlusLocation3: TDBLookupComboPlus;
  53.     DBNavigator2: TDBNavigator;
  54.     Name3: TLabel;
  55.     Style3: TLabel;
  56.     Phone3: TLabel;
  57.     Location3: TLabel;
  58.  
  59.     DBEditName4: TDBEdit;
  60.     ComboPlusSubCat4: TDBLookupComboPlus;
  61.     DBEditPhone4: TDBEdit;
  62.     ComboPlusLocation4: TDBLookupComboPlus;
  63.     DBNavigator3: TDBNavigator;
  64.     Name4: TLabel;
  65.     Style4: TLabel;
  66.     Phone4: TLabel;
  67.     Location4: TLabel;
  68.     Panel1: TPanel;
  69.     RadioGroupAutoDropDown: TRadioGroup;
  70.     RadioGroupSpeedButton: TRadioGroup;
  71.     RadioGroupBorderStyle: TRadioGroup;
  72.     RadioGroupDropDownAlign: TRadioGroup;
  73.     RadioGroupDropDownTop: TRadioGroup;
  74.     RadioGroupCtrl3D: TRadioGroup;
  75.  
  76.     procedure FormCreate(Sender: TObject);
  77.     procedure ComboPlusSubCat4NewLookupRec(Sender: TObject;
  78.       var Cancelled: Boolean);
  79.     procedure Button1Click(Sender: TObject);
  80.     procedure RadioGroupAutoDropDownClick(Sender: TObject);
  81.     procedure RadioGroupBorderStyleClick(Sender: TObject);
  82.     procedure RadioGroupCtrl3DClick(Sender: TObject);
  83.     procedure RadioGroupDropDownAlignClick(Sender: TObject);
  84.     procedure RadioGroupDropDownTopClick(Sender: TObject);
  85.     procedure RadioGroupSpeedButtonClick(Sender: TObject);
  86.  
  87.   private
  88.     { Private declarations }
  89.   public
  90.     { Public declarations }
  91.   end;
  92.  
  93. var
  94.   Form1: TForm1;
  95.  
  96. implementation
  97.  
  98. {$R *.DFM}
  99.  
  100. procedure TForm1.FormCreate(Sender: TObject);
  101. begin
  102.   ComboPlusSubCat.IgnorLUIndexErr := True;
  103.   ComboPlusSubCat2.IgnorLUIndexErr := True;
  104.   ComboPlusSubCat3.IgnorLUIndexErr := True;
  105.   ComboPlusSubCat4.IgnorLUIndexErr := True;
  106. end;
  107.  
  108.  
  109. procedure TForm1.ComboPlusSubCat4NewLookupRec(Sender: TObject;
  110.   var Cancelled: Boolean);
  111. begin
  112.   Cancelled := False;                 {Set cancelled to false initially}
  113.   TableSubCat.Insert;                 {Start a new SubCat record}
  114.  
  115.   TableSubCat.FieldByName('SubCatName').AsString := {and set the new name value}
  116.     ComboPlusSubCat4.DisplayValue;
  117.  
  118.   SubCatDlg.ShowModal;                { display the dialog box }
  119.   if SubCatDlg.ModalResult=mrOK then  {if user pressed OK then save the new SubCat}
  120.   begin
  121.     TableSubCat.Post;                 {if user said oK then post}
  122.     {*** VERY IMPORTANT*** Now Update the Compbo's value property.
  123.      The Combo component doesn't know anything about the table that
  124.      the SubCatDlg box uses so you must tell the combo what the
  125.      SubCat number is. This will need to be done in any case where
  126.      the lookup field is different than the display field.}
  127.  
  128.     ComboPlusSubCat4.Value := TableSubCat.FieldByName('SubCatNum').AsString;
  129.   end
  130.   else
  131.   begin
  132.     TableSubCat.Cancel;
  133.     Cancelled := True;
  134.   end;
  135.  
  136. end;
  137.  
  138. procedure TForm1.Button1Click(Sender: TObject);
  139. begin
  140.   If ComboPlusSubCat4.ShowSpeedButton then
  141.     ComboPlusSubCat4.ShowSpeedButton := False
  142.   else
  143.     ComboPlusSubCat4.ShowSpeedButton := True;
  144. end;
  145.  
  146. procedure TForm1.RadioGroupAutoDropDownClick(Sender: TObject);
  147. begin
  148.    case  RadioGroupAutoDropDown.ItemIndex of
  149.     0 : begin
  150.           ComboPlusSubCat.AutoDropDown := True;
  151.           ComboPlusLocation.AutoDropDown := True;
  152.           ComboPlusSubCat2.AutoDropDown := True;
  153.           ComboPlusLocation2.AutoDropDown := True;
  154.           ComboPlusSubCat3.AutoDropDown := True;
  155.           ComboPlusLocation3.AutoDropDown := True;
  156.           ComboPlusSubCat4.AutoDropDown := True;
  157.           ComboPlusLocation4.AutoDropDown := True;
  158.         end;
  159.     1 : begin
  160.           ComboPlusSubCat.AutoDropDown := False;
  161.           ComboPlusLocation.AutoDropDown := False;
  162.           ComboPlusSubCat2.AutoDropDown := False;
  163.           ComboPlusLocation2.AutoDropDown := False;
  164.           ComboPlusSubCat3.AutoDropDown := False;
  165.           ComboPlusLocation3.AutoDropDown := False;
  166.           ComboPlusSubCat4.AutoDropDown := False;
  167.           ComboPlusLocation4.AutoDropDown := False;
  168.         end;
  169.   end; {Case}
  170.  
  171. end;
  172.  
  173. procedure TForm1.RadioGroupBorderStyleClick(Sender: TObject);
  174. begin
  175.   case  RadioGroupBorderStyle.ItemIndex of
  176.     0 : begin
  177.           ComboPlusSubCat.BorderStyle := bsNone;
  178.           ComboPlusLocation.BorderStyle := bsNone;
  179.           ComboPlusSubCat2.BorderStyle := bsNone;
  180.           ComboPlusLocation2.BorderStyle := bsNone;
  181.           ComboPlusSubCat3.BorderStyle := bsNone;
  182.           ComboPlusLocation3.BorderStyle := bsNone;
  183.           ComboPlusSubCat4.BorderStyle := bsNone;
  184.           ComboPlusLocation4.BorderStyle := bsNone;
  185.         end;
  186.     1 : Begin
  187.           ComboPlusSubCat.BorderStyle := bsSingle;
  188.           ComboPlusLocation.BorderStyle := bsSingle;
  189.           ComboPlusSubCat2.BorderStyle := bsSingle;
  190.           ComboPlusLocation2.BorderStyle := bsSingle;
  191.           ComboPlusSubCat3.BorderStyle := bsSingle;
  192.           ComboPlusLocation3.BorderStyle := bsSingle;
  193.           ComboPlusSubCat4.BorderStyle := bsSingle;
  194.           ComboPlusLocation4.BorderStyle := bsSingle;
  195.         end;
  196.   end; {Case}
  197.  
  198. end;
  199.  
  200. procedure TForm1.RadioGroupCtrl3DClick(Sender: TObject);
  201. begin
  202.   case  RadioGroupCtrl3D.ItemIndex of
  203.     0 : begin
  204.           ComboPlusSubCat.Ctl3D := True;
  205.           ComboPlusLocation.Ctl3D := True;
  206.           ComboPlusSubCat2.Ctl3D := True;
  207.           ComboPlusLocation2.Ctl3D := True;
  208.           ComboPlusSubCat3.Ctl3D := True;
  209.           ComboPlusLocation3.Ctl3D := True;
  210.           ComboPlusSubCat4.Ctl3D := True;
  211.           ComboPlusLocation4.Ctl3D := True;
  212.         end;
  213.     1 : Begin
  214.           ComboPlusSubCat.Ctl3D := False;
  215.           ComboPlusLocation.Ctl3D := False;
  216.           ComboPlusSubCat2.Ctl3D := False;
  217.           ComboPlusLocation2.Ctl3D := False;
  218.           ComboPlusSubCat3.Ctl3D := False;
  219.           ComboPlusLocation3.Ctl3D := False;
  220.           ComboPlusSubCat4.Ctl3D := False;
  221.           ComboPlusLocation4.Ctl3D := False;
  222.         end;
  223.    end;
  224. end;
  225.  
  226. procedure TForm1.RadioGroupDropDownAlignClick(Sender: TObject);
  227. begin
  228.   case  RadioGroupDropDownAlign.ItemIndex of
  229.     0 : begin
  230.           ComboPlusSubCat.DropDownAlign := Dblup2.Left;
  231.           ComboPlusLocation.DropDownAlign := Dblup2.Left;
  232.           ComboPlusSubCat2.DropDownAlign := Dblup2.Left;
  233.           ComboPlusLocation2.DropDownAlign := Dblup2.Left;
  234.           ComboPlusSubCat3.DropDownAlign := Dblup2.Left;
  235.           ComboPlusLocation3.DropDownAlign := Dblup2.Left;
  236.           ComboPlusSubCat4.DropDownAlign := Dblup2.Left;
  237.           ComboPlusLocation4.DropDownAlign := Dblup2.Left;
  238.         end;
  239.     1 : begin
  240.           ComboPlusSubCat.DropDownAlign := Dblup2.Right;
  241.           ComboPlusLocation.DropDownAlign := Dblup2.Right;
  242.           ComboPlusSubCat2.DropDownAlign := Dblup2.Right;
  243.           ComboPlusLocation2.DropDownAlign := Dblup2.Right;
  244.           ComboPlusSubCat3.DropDownAlign := Dblup2.Right;
  245.           ComboPlusLocation3.DropDownAlign := Dblup2.Right;
  246.           ComboPlusSubCat4.DropDownAlign := Dblup2.Right;
  247.           ComboPlusLocation4.DropDownAlign := Dblup2.Right;
  248.         end;
  249.   end; {Case}
  250.  
  251. end;
  252.  
  253. procedure TForm1.RadioGroupDropDownTopClick(Sender: TObject);
  254. begin
  255.   case  RadioGroupDropDownTop.ItemIndex of
  256.     0 : begin
  257.           ComboPlusSubCat.DropDownTop := Dblup2.Above;
  258.           ComboPlusLocation.DropDownTop := Dblup2.Above;
  259.           ComboPlusSubCat2.DropDownTop := Dblup2.Above;
  260.           ComboPlusLocation2.DropDownTop := Dblup2.Above;
  261.           ComboPlusSubCat3.DropDownTop := Dblup2.Above;
  262.           ComboPlusLocation3.DropDownTop := Dblup2.Above;
  263.           ComboPlusSubCat4.DropDownTop := Dblup2.Above;
  264.           ComboPlusLocation4.DropDownTop := Dblup2.Above;
  265.         end;
  266.     1 : begin
  267.           ComboPlusSubCat.DropDownTop := Dblup2.Below;
  268.           ComboPlusLocation.DropDownTop := Dblup2.Below;
  269.           ComboPlusSubCat2.DropDownTop := Dblup2.Below;
  270.           ComboPlusLocation2.DropDownTop := Dblup2.Below;
  271.           ComboPlusSubCat3.DropDownTop := Dblup2.Below;
  272.           ComboPlusLocation3.DropDownTop := Dblup2.Below;
  273.           ComboPlusSubCat4.DropDownTop := Dblup2.Below;
  274.           ComboPlusLocation4.DropDownTop := Dblup2.Below;
  275.         end;
  276.   end; {Case}
  277.  
  278. end;
  279.  
  280. procedure TForm1.RadioGroupSpeedButtonClick(Sender: TObject);
  281. begin
  282.   case  RadioGroupSpeedButton.ItemIndex of
  283.     0 : begin
  284.           ComboPlusSubCat.ShowSpeedButton := True;
  285.           ComboPlusLocation.ShowSpeedButton := True;
  286.           ComboPlusSubCat2.ShowSpeedButton := True;
  287.           ComboPlusLocation2.ShowSpeedButton := True;
  288.           ComboPlusSubCat3.ShowSpeedButton := True;
  289.           ComboPlusLocation3.ShowSpeedButton := True;
  290.           ComboPlusSubCat4.ShowSpeedButton := True;
  291.           ComboPlusLocation4.ShowSpeedButton := True;
  292.         end;
  293.     1 : begin
  294.           ComboPlusSubCat.ShowSpeedButton := False;
  295.           ComboPlusLocation.ShowSpeedButton := False;
  296.           ComboPlusSubCat2.ShowSpeedButton := False;
  297.           ComboPlusLocation2.ShowSpeedButton := False;
  298.           ComboPlusSubCat3.ShowSpeedButton := False;
  299.           ComboPlusLocation3.ShowSpeedButton := False;
  300.           ComboPlusSubCat4.ShowSpeedButton := False;
  301.           ComboPlusLocation4.ShowSpeedButton := False;
  302.         end;
  303.   end; {Case}
  304.  
  305. end;
  306.  
  307. end.
  308.           ComboPlusSubCat
  309.           ComboPlusLocation
  310.           ComboPlusSubCat2
  311.           ComboPlusLocation2
  312.           ComboPlusSubCat3
  313.           ComboPlusLocation3
  314.           ComboPlusSubCat4
  315.           ComboPlusLocation4
  316.  
  317.